Voorbeeld van de functie PV

In dit voorbeeld geeft de functie PV als resultaat de huidige waarde van een annu∩teit van fel. 1.000.000 die de komende 20 jaar fl. 50.000 per jaar zal opleveren. Gegeven zijn de verwachte jaarlijkse rentevoet (APR), het totale aantal betalingen (TotPmts), het bedrag van elke betaling (YrIncome), de totale toekomstige waarde van de investering (FVal) en een getal dat aangeeft of een betaling aan het begin of aan het eind van de betalingsperiode plaatsvindt (PayType). Omdat YrIncome een jaarlijks uitbetaald bedrag van de annu∩teit vertegenwoordigt, is het een negatief getal.

Dim Fmt, APR, TotPmts, YrIncome, FVal, PayType, PVal
Const ENDPERIOD = 0, BEGINPERIOD = 1    ' Wanneer de betalingen plaatsvinden.
Fmt = "###.##0,00"    ' Definieer valutanotatie.
APR = .0825    ' Jaarlijkse rentevoet.
TotPmts = 20    ' Totaal aantal betalingen.
YrIncome = 50000    ' Jaarinkomen.
FVal = 1000000    ' Toekomstige waarde.
PayType = BEGINPERIOD    ' Betaling aan begin van maand.
PVal = PV(APR, TotPmts, -YrIncome, FVal, PayType)
MsgBox "De huidige waarde is " & Format(PVal, Fmt) & "."